home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / DESKLIBC / SOURCES.ZIP / DeskLib / !DLSources / Libraries / Font / s / Font01 < prev    next >
Text File  |  1995-08-26  |  669b  |  30 lines
  1. ; Author: Copyright 1993 Shaun Blackmore
  2.  
  3.         GET     ^.h.regdefs
  4.         GET     ^.h.swinos
  5.         GET     ^.h.macros
  6.  
  7. ; os_error *Font_FindFont(FontHandle *font, char *name, int xsize, int ysize, int xres, int yres);
  8.  
  9. ;       r0=*font;
  10. ;       r1=name
  11. ;       r2=xsize
  12. ;       r3=ysize
  13. ;       r4,[ip,#0]=xres
  14. ;       r5,[ip,#4]=yres
  15.  
  16.         PREAMBLE
  17.         STARTCODE Font_FindFont
  18. ;
  19.         MOV     ip,sp
  20.         STMFD   sp!, {r4,r5,r6,lr}
  21.         MOV     r6,r0
  22.         LDR     r4,[ip,#0]
  23.         LDR     r5,[ip,#4]
  24.         SWI     SWI_Font_FindFont + XOS_Bit
  25.         STR     r0,[r6,#0]
  26.         MOVVC   r0,#0
  27.         LDMFD   sp!, {r4,r5,r6,pc}^
  28. ;
  29.         END
  30.